#!/usr/bin/perl

use utf8;
use strict;

my $longest = 0;

foreach my $key ( keys %ENV ) {
	my $key_lingth = length($key);
	$longest = $key_lingth if $key_lingth > $longest;
}

foreach my $key (sort keys %ENV) {
	printf "%-${longest}s %s\n", $key, $ENV{$key};
}